(math-use-emacs-fn): Make sure that the lisp number is in decimal.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19b20ede0d61ea114dacf7855baa41ee01d0ff72..44ddc6a348504bb04d04fc8dadb048bf99cb0fb3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-02-21  Jay Belanger  <jay.p.belanger@gmail.com>
+
+       * calc/calc-math.el (math-use-emacs-fn): Make sure that the
+       lisp number is in decimal.
+
 2009-02-21  Chong Yidong  <cyd@stupidchicken.com>
 
        * progmodes/compile.el (compilation-error-regexp-alist-alist):

diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el
index 64c5465da3ce2fdc730d7c1e322ca8cb911c6e38..c8e8cc1f052ea31a81ab67c4c0264c35c59af2ab 100644 (file)
--- a/lisp/calc/calc-math.el
+++ b/lisp/calc/calc-math.el
@@ -105,7 +105,9 @@ If this can't be done, return NIL."
               (math-read-number
                (number-to-string
                 (funcall fn 
-                         (string-to-number (math-format-number (math-float x))))))
+                        (string-to-number 
+                         (let ((calc-number-radix 10))
+                           (math-format-number (math-float x)))))))
             (error nil))))))
 
 (defun calc-sqrt (arg)